/***************************************************************************/
/* Procedimiento:  Migracion_SalidaInsertar
/* Descripcion:   Insertar una fila en la tabla Migracion_Salida
/* Parametros:    ?InfoParametros
/*                pTransaccion. Numero identificador de la Transaccion
/*                pMensaje. Mensaje de comfirmacion o excepcion
/* Comentarios:         
/****************************************************************************/

PROCEDURE  Migracion_SalidaInsertar(pnidDocumento NUMBER, pnidCaptSalida NUMBER, 
						pfecha_Zarpe VARCHAR2, ppuertoMaritimo VARCHAR2, pbuqueMotor VARCHAR2, 
						pbandera VARCHAR2, pmatricula VARCHAR2, pnidTipo_Buque NUMBER, 
						pprocedencia VARCHAR2, pdestino VARCHAR2, pnidtrafico NUMBER, 
						ppesobruto NUMBER, ppesoneto NUMBER, pcapitan VARCHAR2, 
						pnacionalidad VARCHAR2, ptripulantes NUMBER, ppasajeros NUMBER, 
						pterminal VARCHAR2, pcargamento VARCHAR2, pestadia NUMBER, 
						pmuelle VARCHAR2, pfacturar VARCHAR2, prfc VARCHAR2, 
						pdireccion VARCHAR2, pnidviaje NUMBER, pobservaciones VARCHAR2, 
						, pTransaccion OUT NUMBER, pMensaje OUT VARCHAR2)
AS
BEGIN
  INSERT INTO Migracion_Salida(nid, nidDocumento, nidCaptSalida, 
						fecha_Zarpe, puertoMaritimo, buqueMotor, 
						bandera, matricula, nidTipo_Buque, 
						procedencia, destino, nidtrafico, 
						pesobruto, pesoneto, capitan, 
						nacionalidad, tripulantes, pasajeros, 
						terminal, cargamento, estadia, 
						muelle, facturar, rfc, 
						direccion, nidviaje, observaciones, 
						)
  VALUES               (seq_Migracion_Salida.nextval, pnidDocumento, pnidCaptSalida, 
						to_date(pfecha_Zarpe,'DD/MM/YYYY HH24:MI:SS'), ppuertoMaritimo, pbuqueMotor, 
						pbandera, pmatricula, pnidTipo_Buque, 
						pprocedencia, pdestino, pnidtrafico, 
						ppesobruto, ppesoneto, pcapitan, 
						pnacionalidad, ptripulantes, ppasajeros, 
						pterminal, pcargamento, pestadia, 
						pmuelle, pfacturar, prfc, 
						pdireccion, pnidviaje, pobservaciones, 
						);
  
  COMMIT;
  pTransaccion := 1;
  pMensaje := 'Terminado OK';
  dbms_output.put_line('Terminado OK');

EXCEPTION
  WHEN OTHERS THEN
    pTransaccion := 0;
    pMensaje := 'Error en  Migracion_Salida_Insertar:' || SQLCODE || ' Mensaje: ' || sqlerrm;
    dbms_output.put_line('Error en  Migracion_Salida_Insertar:' || SQLCODE || ' Mensaje: ' || sqlerrm);
END;
